home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).do / ABOUT.SOFTDISK.bas next >
BASIC Source File  |  1996-12-24  |  7KB  |  157 lines
  1. 5  REM  ABOUT.SOFTDISK
  2. 10  TEXT : HOME 
  3. 100  VTAB 2: HTAB 12: PRINT "SOFTDISK MAGAZETTE"
  4. 110  HTAB 13: PRINT "3811 ST. VINCENT"
  5. 120  HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
  6. 130  VTAB 6: HTAB 6: PRINT "$10 TO START  -  $5 PER MONTH"
  7. 140  VTAB 8: HTAB 11: PRINT "A MONTHLY PUBLICATION"
  8. 150  VTAB 10: HTAB 31: PRINT "* OTHER *
  9. 155  HTAB 31: PRINT "*  HALF *
  10. 160  VTAB 13: PRINT "PUBLISHER - AL TOMMERVIK";: HTAB 33: PRINT "MARGOT"
  11. 165  VTAB 15: PRINT "CELEBRITY - MARGOT TOMMERVIK";: HTAB 33: PRINT "AL"
  12. 166  PRINT " EDITOR"
  13. 170  VTAB 18: PRINT "   EDITOR - JIM MANGHAM";: HTAB 33: PRINT "JUDI"
  14. 180  VTAB 20: PRINT "   EDITOR - JOHN WRENHOLT";: HTAB 33: PRINT "RHONDA"
  15. 185  VTAB 22: PRINT " DEMODISK - GARY WELLS";: HTAB 33: PRINT "GAIL"
  16. 190  GOSUB 8000
  17. 195  GOTO 2000
  18. 200  HOME 
  19. 210  VTAB 2: HTAB 12: PRINT "MAILING PROCEDURE"
  20. 220  GOSUB 8050
  21. 230  VTAB 7: PRINT " SENDS $10 STARTUP FEE"
  22. 240  GOSUB 8000
  23. 250  GOSUB 8200
  24. 260  GOSUB 8100
  25. 270  VTAB 7: HTAB 20: PRINT "RECEIVES STARTUP FEE"
  26. 280  GOSUB 8000
  27. 290  VTAB 9: HTAB 20: PRINT "SENDS INITIAL ISSUE": HTAB 20: PRINT "IN REUSABLE MAILER"
  28. 300  GOSUB 8000
  29. 310  GOSUB 8200
  30. 320  GOSUB 8050
  31. 330  VTAB 7: PRINT " RECEIVES INITIAL ISSUE"
  32. 340  PRINT " IN REUSABLE MAILER"
  33. 350  GOSUB 8000
  34. 360  VTAB 10: PRINT " IMMEDIATELY SEND BACK MAILER"
  35. 370  PRINT " & $5 PAYMENT FOR NEXT ISSUE"
  36. 375  PRINT " (RETAIN DISKETTE)"
  37. 470  GOSUB 8000
  38. 480  GOSUB 8200
  39. 490  GOSUB 8100
  40. 500  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER &"
  41. 510  HTAB 21: PRINT "PAYMENT FOR NEXT"
  42. 520  HTAB 21: PRINT "ISSUE"
  43. 530  GOSUB 8000
  44. 540  VTAB 11: HTAB 21: PRINT "SENDS MAILER & NEW"
  45. 550  HTAB 21: PRINT "ISSUE"
  46. 560  GOSUB 8000
  47. 570  GOSUB 8200
  48. 580  GOSUB 8050
  49. 590  VTAB 7: PRINT " RECEIVES MAILER &"
  50. 600  PRINT " NEW ISSUE"
  51. 610  GOSUB 8000
  52. 620  VTAB 10: PRINT " IMMEDIATELY SEND BACK"
  53. 630  PRINT " OLD DISKETTE IN MAILER"
  54. 640  PRINT " WITH $5 PAYMENT FOR"
  55. 650  PRINT " NEXT ISSUE"
  56. 655  PRINT " (RETAIN NEW DISKETTE)"
  57. 700  GOSUB 8000
  58. 710  GOSUB 8200
  59. 720  GOSUB 8100
  60. 730  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER WITH";
  61. 740  HTAB 21: PRINT "OLD DISKETTE &"
  62. 750  HTAB 21: PRINT "PAYMENT FOR NEXT"
  63. 760  HTAB 21: PRINT "ISSUE"
  64. 770  GOSUB 8000
  65. 780  VTAB 12: HTAB 21: PRINT "SENDS MAILER & YET"
  66. 790  HTAB 21: PRINT "ANOTHER ISSUE"
  67. 800  GOSUB 8000
  68. 810  GOSUB 8200
  69. 820  VTAB 8: HTAB 8: PRINT "-- AND THE ";: FLASH : PRINT "BEAT";: NORMAL : PRINT " GOES ON --"
  70. 830  VTAB 12: PRINT " PLEASE SEND RETURNS BACK THE SAME DAY"
  71. 840  PRINT " YOU RECEIVE A MAILER."
  72. 850  PRINT : PRINT " WE MUST MAKE A SPECIAL MAILING FOR LATE";
  73. 860  PRINT " RETURNS."
  74. 870  PRINT : PRINT " BE A GROOVER AND GET IN THE SOFTDISK"
  75. 875  PRINT " GROOVE."
  76. 880  GOSUB 8000
  77. 882  VTAB 5: CALL  -868
  78. 885  GOSUB 8200
  79. 890  VTAB 4: PRINT " OUR ADDRESS & PREPAID POSTAGE PERMIT"
  80. 900  PRINT " IS ON THE FLIP SIDE OF YOUR ADDRESS"
  81. 910  PRINT " CARD."
  82. 920  PRINT " (PLASTIC BAG OPENS AT RED LINE)"
  83. 930  PRINT : PRINT " THE FIRST THING YOU SHOULD DO UPON"
  84. 940  PRINT " RECEIVING A NEW MAGAZETTE IS MAKE A"
  85. 950  PRINT " PERSONAL COPY OF IT FOR YOUR KEEPING."
  86. 960  PRINT : PRINT " THEN YOU HAVE A MONTH TO PLAY WITH"
  87. 970  PRINT " OUR DISKETTE & PLACE FEEDBACK"
  88. 980  PRINT " COMMENTS ON IT."
  89. 990  PRINT : PRINT " WHEN YOU GET A NEW ONE,"
  90. 1000  PRINT " SEND BACK THE OLD ONE,"
  91. 1010  PRINT " WITH PAYMENT FOR THE NEXT ONE."
  92. 1015  PRINT " ALWAYS KEEP A DISK TO RUN."
  93. 1017  PRINT " THAT'S THE WAY TO HAVE SOME FUN."
  94. 1020  GOSUB 8000
  95. 1030  GOTO 2000
  96. 2000  HOME : HTAB 12: PRINT "INFORMATION ABOUT"
  97. 2010  VTAB 8: HTAB 10: PRINT "1 = BACK ISSUES"
  98. 2020  VTAB 10: HTAB 10: PRINT "2 = ANNUAL SUBSCRIPTIONS"
  99. 2030  VTAB 12: HTAB 10: PRINT "3 = MAILING PROCEDURE"
  100. 2040  VTAB 14: HTAB 10: PRINT "4 = FEEDBACK PROCESS"
  101. 2050  VTAB 16: HTAB 10: PRINT "5 = NONE OF THE ABOVE"
  102. 2060  VTAB 18: HTAB 3: PRINT "WHICH? ";: GET R$
  103. 2070  PRINT 
  104. 2080  IF R$ = "1" GOTO 3000
  105. 2090  IF R$ = "2" GOTO 4000
  106. 2100  IF R$ = "3" GOTO 200
  107. 2110  IF R$ = "4" GOTO 5000
  108. 2120  IF R$ = "5"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  109. 2130  GOTO 2060
  110. 3000  HOME : VTAB 6: HTAB 14: PRINT "BACK ISSUES"
  111. 3010  VTAB 10: PRINT "  WE ARE OFFERING BACK ISSUES FOR $8"
  112. 3020  PRINT : HTAB 8: PRINT "(YOU KEEP THE DISKETTE)"
  113. 3030  PRINT : PRINT "  THE FIRST AVAILABLE ISSUE IS OCT 81"
  114. 3040  GOSUB 8000: GOTO 2000
  115. 4000  HOME : VTAB 6: HTAB 10: PRINT "ANNUAL SUBSCRIPTIONS"
  116. 4010  VTAB 10: PRINT "  WE ARE OFFERING 12 ISSUES FOR $50"
  117. 4020  PRINT : HTAB 2: PRINT "FOR THOSE WHO PREFER ADVANCE PAYMENT"
  118. 4030  GOSUB 8000: GOTO 2000
  119. 5000  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  120. 5010  PRINT : PRINT "YOU ARRIVED AT THIS SCREEN BY FIRST"
  121. 5020  PRINT : PRINT "SELECTING 'ABOUT SOFTDISK' AND THEN"
  122. 5030  PRINT : PRINT "'FEEDBACK PROCESS'.
  123. 5040  PRINT : PRINT : PRINT "AFTER YOU EXIT 'ABOUT SOFTDISK' YOU"
  124. 5050  PRINT : PRINT "WILL BE GIVEN AN OPPORTUNITY TO SELECT"
  125. 5060  PRINT : PRINT "'ON WITH THE SHOW'.
  126. 5070  PRINT : PRINT : PRINT "'ON WITH THE SHOW' TAKES YOU INTO A"
  127. 5080  PRINT : PRINT "PRESENTATION OF THE MAIN BODY OF"
  128. 5090  PRINT : PRINT "SOFTDISK TEXT DATA."
  129. 5100  GOSUB 8000
  130. 5110  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  131. 5120  PRINT : PRINT "ONCE YOU ARE VIEWING THE MAIN BODY OF"
  132. 5130  PRINT : PRINT "TEXT DATA YOU WILL NOTICE THAT THE"
  133. 5140  PRINT : PRINT "BOTTOM OF THE SCREEN PRESENTS YOU WITH"
  134. 5150  PRINT : PRINT "SOME OPTIONS."
  135. 5160  PRINT : PRINT "ONE OF THEM IS THE  V  OPTION."
  136. 5180  PRINT : PRINT "THE  V  OPTION ALLOWS YOU TO ENTER"
  137. 5190  PRINT : PRINT "COMMENTS.  YOUR COMMENTS WILL BE"
  138. 5200  PRINT : PRINT "WRITTEN TO THE DISK AND PROVIDE US WITH"
  139. 5210  PRINT : PRINT "FEEDBACK WHEN YOU RETURN YOUR DISKETTE"
  140. 5220  PRINT : PRINT "FOR ANOTHER ISSUE OF SOFTDISK."
  141. 5230  GOSUB 8000
  142. 5240  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  143. 5250  PRINT : PRINT "YOU SHOULD ENTER YOUR COMMENTS ONE LINE"
  144. 5260  PRINT : PRINT "AT A TIME."
  145. 5270  PRINT : PRINT "HIT THE RETURN KEY AFTER EACH LINE YOU"
  146. 5280  PRINT : PRINT "ENTER."
  147. 5290  PRINT : PRINT "WHEN YOU FINISH YOUR REPLY AND WANT TO"
  148. 5300  PRINT : PRINT "CONTINUE READING THE MAGAZETTE JUST"
  149. 5310  PRINT : PRINT "HIT RETURN WITHOUT ENTERING ANY DATA."
  150. 5320  PRINT : PRINT "TO REVIEW OR CHANGE YOUR COMMENT YOU"
  151. 5330  PRINT : PRINT "SHOULD TAKE THE  V  OPTION FROM THE"
  152. 5340  PRINT : PRINT "SAME SCREEN AGAIN."
  153. 5350  GOSUB 8000: GOTO 2000
  154. 8000  FOR I = 1 TO 250: NEXT : VTAB 23: CALL  -868: HTAB 14: FLASH : PRINT "*";: NORMAL : PRINT " HIT RETURN ";: FLASH : PRINT "*";: NORMAL : INPUT " ";R$: RETURN 
  155. 8050  VTAB 5: HTAB 6: INVERSE : PRINT "SUBSCRIBER";: NORMAL : HTAB 27: PRINT "SOFTDISK": RETURN 
  156. 8100  VTAB 5: HTAB 6: PRINT "SUBSCRIBER";: HTAB 27: INVERSE : PRINT "SOFTDISK": NORMAL : RETURN 
  157. 8200  FOR I = 7 TO 20: VTAB (I): CALL  -868: NEXT : RETURN